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int fund (unsigned a, unsigned b, unsigned c) 
{ 

return a + b A c « 3; 

] 



int func2 (int a, int b, int c) 
( 

return (a A b) & c; 

} 



FIG.. 3 A 



module funcl(result_funcl, result_func2, param_funcl_a, param_funcl_b. 
param_funcl_c, param_func2_a, param_func2_b> param_func2_c); 

output [15:0] result_funcl, result_func2; 

input [15:0] param_funcl_a, param_funcl_b, param_funcl_c; 

input [15:0] paiam_func2_a, param_func2_b, param_func2_c; 

wire [15:0] result_funcl = 

((param_funcl_a + param_funcl_b) A (param_funcl_c « 16'd3)); 
wire [15:0] result_func2 = 

((param_func2_a A param_func2_b) & param_func2_c); 

endmodule 

FIG.-3B 
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int fund (unsigned a, unsigned b, unsigned c) 
{ 

return a + (b = 1) A c « 3; 

} 

int func2 (int a, int b, int c) 
{ 

if (a < b) 
c -= b; 

return (a A b) & c; 

} 

int func3 (unsigned a, unsigned b, int c) 
{ 

unsigned d = 0; 
unsigned e; 

b++; 

if (a < b) 
{ 

int c = e = a - b; 

if(a!=0) 
{ 

c -= a & b; 
d = c++ A b; 

} 

else 
{ 

d++; 

e = c + d?c: 1; 

} 

} 

d=l; 

return a < b && (a + b A c != 3 II a - b == 0); 

} 

FIG..4A 
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module funcx (clockgresult_funcl,result_func2jesuIt_func3,param_funcl_a, 
param_func 1 _b,param_f unc 1 _c ,param_func2_a,param_f unc2_b f 
param_func2_c,param_func3_a > param_func3_b,param_func3_c); 
input clock; 

input [15:0] param_funcl_a, param_funcl_b, param_funcl_c, param_func2_a, param_func2 

param_func2_c > param_func3_a, param_func3_b, param_func3_c; 
output [15:0] result_funcl, result_func2, result_func3; 
reg __5_1; 

reg [15:0] result_funcl , result_func2, result_func3, 

_func2_c, _func3_b> _6_func3_d, _6_func3_e, 

_7_func3_c, _1_16, _4_16, _6_16, _7_16; 
reg [16:0] _2_17, _3_17; 
always @(posedge clock) 
begin 

_1_16 = (param_funcl_b = 16'dl); 

result_funcl = ((param_funcl_a + _1_16) A (param_funcl_c « 16'd3)); 
_func2_c = param_func2__c; 

_2_17 = { ~ param_func2_a [15], param_func2_a }; 
_3_17 = { - pararn_func2_b [15], param_func2_b }; 

if(C2_17<_3_17)) 

_func2_c = Cfunc2_c - param - func2_b); 
result_func2 = ((param_func2_a A param_func2_b) & _func2_c); 
_func3_b = param_func3_b; 
_6_func3_d = 16'dO; 
_func3J> = (_func3_b + 16'dl); 
if ((param_func3_a < _func3_b)) 

begin 

_6_func3_e = (param_func3_a - _func3_b); 
_7_func3_c = _6_func3_e; 
if ((param_func3_a!= 16'dO)) 
begin 

_7_func3_c = C7_func3_c - (param_func3_a & _func3_b)); 

_4_16 = _7_func3_c; 

_7_func3_c = C_4_16 + 16'dl); 
_6_func3_d = C4_16 A _func3_b); 
end 
else 
begin 

_6_func3_d = C6_func3_d + 16'dl); 

_6_func3_e = (C7_func3_c + _6_func3_d) ? _7_func3_c : 16'dl); 
end 
end 

_6_func3_d= 16'dl; 

_6_16 = (param_func3_c != 16'd3); 

_5_1 = (param_func3_a < _func3_b) && (((param_func3_a + _func3_b) A _6_16) 

II ((param_func3_a - _func3_b) = 16'dO)); 
_7_16 = _5_1; 
result_func3 = _7_16; 
end 
endmodule 

FIG.-4B 



6/90 



int suml (int n) 
{ 

int i, sum = 0; 

for (i - 0; i < n; i ++) 

sum += i; 
return sum; 

} 

int sum2 (int array [], int size) 
{ 

int i, sum = 0; 

for (i = 0; i < size; i ++) 

sum += array [i]; 
return sum; 

} 

int main 0 

{ 

int i; 

int array [10]; 

int size = sizeof (array) / sizeof (*array); 
for (i = 0; i < size; i++) 

array [i] = i * 2; 
return suml (size) + sum2 (array, size); 

} 
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'define _5_main_array 4'hl 

module RAM32X1 (O, D, WE, A4, A3, A2, Al, AO); 
/* synthesis black_box xc_alias="RAM" */ 
input D, WE, A4, A3, A2, A1.A0; 

output O; 
reg [31:0] d; 

wire [4:0] A = { A4, A3, A2, Al, AO } ; 
assign O = d [A]; 

always @(A or D or WE) 
if (WE) 
d [A] = D: 
endmodule 

module RAM32xl (a, d, o, we); 
input [4:0] a; 
input d, we; 

output o; 

RAM32X1 RAM32X1 (o, d, we, a [4], a [3], a [2], a [1], a [0]); 
endmodule 

module RAM32xl6 (a, d, o, we); 
input we; 
input [ 4:0] a; 
input [15:0] <fc 
output [15:0] o; 

RAM32xl U0 (a, d [ 0], o [ 0], we); 
RAM32xl Ul (a, d [ 1], o [ 1], we); 
RAM32xl U2 (a, d [ 2], o [ 2], we); 
RAM32xl U3 (a, d [ 3], o [ 3], we); 
RAM32xl U4 (a, d [ 4], o [ 4], we); 
RAM32xl U5 (a, d [ 5], o [ 5], we); 
RAM32xl U6 (a, d [ 6], o [ 6], we); 
RAM32xl U7 (a, d [ 7], o [ 7], we); 
RAM32xl U8 (a, d [ 8], o [ 8], we); 
RAM32xl U9 (a, d [ 9], o [ 9], we); 
RAM32xl U10 (a, d [10], o [10], we); 
RAM32xl Ull (a, d [11], o [11], we); 
RAM32xl U12 (a, d [12], o [12], we); 
RAM32xl U13 (a, d [13], o [13], we); 
RAM32xl U14 (a, d [14], o [14], we); 
RAM32xl U15 (a, d [15], o [15], we); 
endmodule 

module RAMI 1x16 (a, d, o. we); 
input we; 
input [ 3:0] a; 
input [15:0] d; 
output [15:0] o; 

RAM32xl6 U ({ l'bO, a }, d, o, we); 
endmodule 
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module fori (clock, reset, result_suml, result_sum2, result_main, 

param_suml_n, param_sum2_array, param_sum2_size, run_sum 1 , 
ready_suml, run_sum2, ready_sum2, runjnain, ready_main); 

input clock, reset, run_suml, run_sum2, run_main; 

input [15:0] param_suml_n, param_sum2 - array, param_sum2_size; 

output ready_sum 1 , ready_sum2, ready_main; 

output [15:0] result_sum 1 , result_sum2, result_main; 

reg [15:0] result_suml, result_sum2, result_main; 

reg ready _sum 1 , ready_sum2, ready_main, we; 

wire [15:0] o, d; 

reg [ 3:0] state, a, return_state_suml, return_state_sum2; 

reg [15:0] _suml_n, _2_suml_i, _2_suml_sum, _sum2_array, _sum2_size; 

reg [15:0] _4_sum2_i, _4_sum2_sum, _5_main_i, _5_main_size, _5_16, _8_16 

reg [16:0] _1_17. _2_17, _3_17, _4_17, _6_17, _7_17; 

RAMI 1x16 m (a, d, o, we); 
parameter _suml = 1, _sum2 = 5; 



Si always @ (posedge clock) 

2 begin 

Fr* if (reset) 



begin 
we = 0; 
state = 0; 

end 
else 
begin 

case (state) 
0: begin 

if (run_suml) 
begin 
ready_suml = 0; 
return_state_sum 1=0; 
_suml_n = param_suml_n; 
state = _sum 1 ; 
end 

else if (run_sum2) 
begin 

ready_sum2 = 0; 

return_state_sum2 = 0; 
_sum2_array = param_sum2_array; 

_sum2_size = param_sum2_size; 

state = _sum2; 
end 

else if (run_main) 
begin 

ready_main = 0; 

_5__main_size = 16'dlO; 

_5_main_i = 16'dO; 

state = 9; 
end 

60(1 FIG..5B2 



9/90 



_suml: begin 

_2_suml_sum = 16'dO; 

_2_suml_i = 16'dO; 

state = 2; 
end 
2: begin 

_1_17 = { ~_2_suml_i [15],_2_suml_i }; 
_2_17 = ( - _suml_n 115], _suml_n }; 
state = Ll-17 < _2_17) ? 3 : 4; 
end 
3: begin 

_2_suml_sum = (_2_suml_sum + _2_suml_i); 

_2_suml_i = (_2_suml_i + 16'dl); 

state = 2; 
end 
4: begin 

result_suml = _2_suml_sum; 

ready_suml = 1; 

state = retum_state_suml; 
end 
sum2: begin 

_4_sum2_sum = 16'dO; 

_4_sum2J = 16'dO; 

state = 6; 
end 
6: begin 

_3_17 = { - _4_sum2_i [15], _4_sum2J }; 
_4_17 = ( ~ _sum2_size [15], _sum2_size }; 
state = C3_17 < _4_17) ? 7 : 8; 
end 
7: begin 

a = Csum2_array + _4_sum2_i); 
state = 12; 
end 
12: begin 

_5_16 = o; 

__4_sum2_sum = C4_sum2_sum + _5_16); 

_4_sum2_i = C4_sum2_i + 16'dl); 

state = 6; 
end 
8: begin 

result_sum2 = _4_sum2_sum; 

ready_sum2 = 1; 

state = return_state_sam2; 
end 
9: begin 

_6_17 = { ~ _5_main_i [15], _5_main_i }; 
_7_17 = { - _5_main_size [15], _5_main_size }; 
state = (_6_17 < _7_17) ? 10 : 11; 
end 
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10: begin 

_8_16 = (_5_mainJ « l'dl); 

a = C_5_main_array + _5_main_i); 

d = _8_16; 

we = 1; 

state = 13; 
end 
13: begin 

we = 0; 

_5_main_i = (_5_main_i + 16'dl); 
slate = 9; 
end 
11: begin 

_suml_n = _5_main_size; 
reiurn_state_sum 1 = 14; 
state = _suml; 



_sum2_array = _5_main_array; 
_sum2_size = _5_main_size; 
re tum_s ta te_s u m2 =15; 
state = _sum2; 
end 
15: begin 

result_main = (result_suml + result_sum2); 
ready_main = 1 ; 
state = 0; 
end 



default: ; 
endcase 
end 
end 
endmodule 



end 
14: begin 
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# include <stdio.h> 

void main 0 
{ 

int a, b; 

scanf ("%d %d", & a, & b); 
printf ("a + b = %d\n", a + b); 

} 

FIG.. 6 A 



module Printf (clock, scanfJM_line_19_a, scan f_0_2_l ine_ 1 9_b, printf_l_l_line_20, run_main); 
input clock, run_main; 

input [15:0] scanfJM Jine_19_a, scanf_0_2Jine_19J>; 
output [15:0] printf_l_l Jine_20; 

reg [15:0] printf_l_l_line_20, _3_main_a, _3_main_b; 

always @(posedge clock) 
begin 
if (run_main) 
begin 

_3_main_a = scanf_0_l_line_19_a; 
_3_main_b = scanf_0_2_line_19_b; 
printf_l_l Jine_20 = (_3_main_a + _3_main_b); 



// User Verilog code 

Swrite ("a + b = 'fcdSn 11 , printfj_l_line_20); 
// End of user Verilog code 
end 
end 
endmodule 
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int func (a, b, c, d) 
{ 

return (a / b + c / d); 

} 

FIG.-7A 



module udivmodl6 (a, b, div, mod); 
input [15:0] a, b; 
output [15:0] div, mod; 





reg 


[15:0] 


div, mod, paO, pal, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9, palO, pal 1, pal2, 
pa!3, pal4, pal5, pa 16, shbO; 




reg 


[16:0] 


shbl 






reg 


[17:0] 


shb2 






reg 


[18:0] 


shb3 






reg 


[19:0] 


shb4 




CP 


reg 


[20:0] 


shb5 






reg 


[21:0] 


shb6 






reg 


[22:0] 


shb7 




o 


reg 


[23:0] 


shb8 






reg 


[24:0] 


shb9; 




S3 a 


reg 


[25:0] 


shblO; 




reg 


[26:0] 


shbll; 




reg 


[27:0] 


shbl2; 




reg 


[28:0] 


shbl3: 


1 5 1 


reg 


[29:0] 


shbl4; 


— T 

Li 


reg 


[30:0] 


shbl 5; 



always @(a or b) 
begin 
paO = a; 



shblS = b « 15; 

div [15] = pa0 >= shblS; 

pal = div [15] ? paO - shblS : paO; 

shbl4 = b « 14; 

div [14] = pal >= shbl4; 

pa2 = div [14] ? pal - shb!4 : pal; 

shbl3 = b « 13; 

div [13] = pa2 >= shbl3; 

pa3 = div [13] ? pa2 - shbl3 : pa2; 
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shb!2 = b « 12; 

div[12] = pa3 >= shbl2; 

pa4 = div [12] ? pa3 - shbl2 : pa3; 

shbll =b« 11; 

div [ll] = pa4>= shbll; 

pa5 - div [1 1] ? pa4 - shbl 1 : pa4; 

shblO =b«10; 

div [10] = pa5 >= shblO; 

pa6 = div [10] ? pa5 - shblO : pa5; 

shb9 = b « 9; 

div [ 9] = pa6 >= shb9; 

pa7 = div [9] ? pa6 - shb9 : pa6; 

shb8 = b « 8; 

div [ 8] = pa7 >= shb8; 

pa8 = div [8] ? pa7 - shb8 : pa7; 

shb7 = b « 7; 

div [ 7] = pa8 >= shb7; 

pa9 = div [7] ? pa8 - shb7 : pa8; 

shb6 = b « 6; 

div [ 6] = pa9 >= shb6; 

palO = div [6] ? pa9 - shb6 : pa9; 

shb5 = b « 5; 

div [ 5] = palO >= shbS; 

pal 1 = div [5] ? palO - shb5 : palO; 

shb4 = b « 4; 

div [ 4] = pal 1 >= shb4; 

pal2 = div [4] ? pall - shb4 : pal 1; 

shb3 = b « 3; 

div [ 3] = pal 2 >= shb3; 

pal3 = div [3] ? pal2 - shb3 : pal2; 

shb2 = b « 2; 

div[2] = pal3>= shb2; 

pal4 = div [2] ? pal3 - shb2 : pal3; 

shbl = b « 1; 

div [ 1] = pal4 >= shbl; 

pal5 = div [1] ? pal4 - shbl : pal4; 

shbO = b « 0; 

div [ 0] = pal5 >= shbO; 

pal6 = div [0] ? pais - shbO : palS; 

mod = pa 16; 
end 

endmodule 
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module sdivmodl6 (a, b, div, mod); 

input [15:0] a, b; 
output [15:0] div, mod; 

wire [15:0] ua = a [15] ? - a : a; 
wire [15:0] ub = b [15] ? - b : b; 
wire [15:0] udiv, umod; 

udivmodl6 udivmod (ua, ub, udiv, umod); 

wire [15:0] div = (a [15] != b [15]) ? - udiv : udiv; 
wire [15:0] mod = a [15] ? - umod : umod; 

endmodule 



module DivEx (clockjeset^sulLfunc^aram^fun^a^aram^func^b* 
param_func_c,param_func_d^un_func/eady_func); 

input clock, reset, run_func; 

input [15:0] param_func_a, param_func_b, param_func_c, param_func_d; 
output ready_func; 
output [15:0] result_func; 

reg [15:0] result_func, divmod_a, divmod_b, _1_16, _2_16; 
reg ready _func; 

reg [ 1:0] state; 
wire [15:0] div_result; 

sdivmod!6 sdivmod (divmod_a, divmod_b, div_result, ); 

always @(posedge clock) 
begin 
if (reset) 

state = 0; 
else 
begin 

case (state) 

0: begin 

if (run_func) 
begin 
ready_func = 0; 
divmod_a = param_func_a; 
divmod_b = param_func_b; 
state = 1 ; 
end 
end 

FIG..7B3 
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1: begin 

_1_16 = div_result; 
divmod_a = param_func_c; 
divmod_b = param_func_d; 
siate = 2; 
end 

2: begin 

_2_16 = div_result; 

result_func = (_1_16 + _2__ 

ready_func = 1 ; 

state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule 
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int data_in; 
int outl; 
int oul2; 
int daia_out; 

voidpipe!ine_siage_l 0 

outl = data-in + 1; 



void pipeline_stage_2 0 
out2 = outl + outl; 



void pipeline_stage_3 0 
data_out = out2 A 1234; 



#ifndef SYNETRY 

#include <stdio.h> 

void main 0 
{ 

for (;;) 
{ 

scanf ("%d", & datajn) 

pipeline_stage_l 0; 
pipeline_stage_2 (); 
pipeline_stage_3 (); 

printf ("%d'\ data_out); 

} 

} 

#endif 

FIG.-8A 
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module Pipeline (clock, _data_in, _data_out, run_pipeline_stage_l,run_pipeline_stage_2, 
run _pipeline_stage_3 ) ; 

input clock, run_pipeline_siage_ 1 , run_pipeline_stage_2, run_pipeline_stage_3; 

input [15:0] _datajn; 

output [15:0] _data_out; 

reg [15:0] _data_out, _outl, _out2; 

always @(posedge clock) 
begin 

if (run_pipeline_stage_ 1 ) 
_outl = (_data_in + 16dl); 

end 

always @(ppsedge clock) 
begin 

if (run_pipeline_siage_2) 
_out2 = Coutl + _outl); 

end 

always @(posedge clock) 
begin 

if (run_pipeline_siage_3) 

_data_out = Cout2 A 16'dl234); 

end 
endmodule 

FIG.-8B 
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int func (float a, double b, long double c, int i) 
{ 

return - a + b * c - 16.5 / c; 

} 

FIG. -9 A 



module Float (clock jeseuzero_substractor_float_operand, 
zero_substractor_flcm_run,zero_substracto^ 
convertor_from_float_toJong_double_ope™ 
convertor_from_float_tojong_doublej:eady£^ 
convemr_from_double_ioJong_double_operand^ 
convenor_from_double_toJong_double_imiy,conver^^ 

muluplierJong_double_a,multiplier_long_double_b,mulUplier_long_double_run t 

multiplier long double ready .multiplier long double resultadder long double a. 

adder long double bladder long double run, adder long double ready .adder long double result, 

divider_long_double_a,divider_long_double_b > divider_!ong_double_run, 

dividerjong_double„ready,divider_long_double_result t substractor_long_double_a, 

substractorjong^double_b,substractor_long_double_run,substractor_long_double_ready, 

substiactor_Iong_double_result,con vertor_from Jong_double_to_signed_ 1 6_operand , 

convertor_from_long_double_to_signed_ 1 6_run,convertor_from_long_double - to_signcd_ 1 6_ready ,con 

venor_from_Iong_double_to_signed_16_result > result_func,param - func_a,param_func_b > 

param_func_c,param_func_i^un_func > ready_func); 



input clock, reset, zero_substrac tor_float_ready , convertor_from_float_tojong_double_ready, 

convertor_from_double_to„long L _double_ready, multiplier_long_double_ready, 
adderJong_double_ready, divider_long_doubIe_ready, substractor long double ready, 
con vertor_frornJong_double_to_signed_l 6_ready, run_func; 

input [15:0] convertor_from_long_double_to_signed_16_result, param_func_i; 

input [31:0] zero_substractorjloat_result, param_func_a; 

input [63:0] param_func_b; 

input [79:0] convertor_from_float_to_long_double_result, param_func_c, 

convertor_from_double_to_long_double_result, multiplierJong^_double_ready, 
adder_long_double_result, dividerJong_double_result, substractor_long^double_result; 

output zero_substractor_float__ron, converlor_from - float_to_long_double_run, 

convertor_from_double_to_long_double_run, multiplier_long_double_jrun, 
adder_long^double__run, dividerJong_double__run, substractor_long_double_run, 
convertor_from _long_ double to signed 16 run. ready_func; 

output [15:0] resultjfunc; 

output [31:0] zero_substractor_float_operand, convertor_from_float_to_long_double_operand; 
output [63:0] convertor - from_double_tojong_double_operand; 

output [79:0] muItiplier_Iong_double_a, multiplier_long_double_b» adder_long_double_a, 
adder_long_double_b, dividerJong_double_a, divider_long_double_b. 
substractorjong^double.a, substractor_long_double_b» 
convertor_fromJong_double_to_signed_16_operand; 



FIG.-9B1 
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zero_substractor_float_run, convertor_from_noat_toJong_double_run, 
convertor_from_double„to_long_double_ron, multiplierjong^double^", 
adder_long_double_mn, divider_long_double_run, substractorJong_double_run, 
convenor JFrom_long_double_to_signed_ 1 6_run , ready_func; 
state; 

result_func, _8_16; 

zero^substractor_float_operand, convenor Jrom_float_to_long_double_operand, _1_32 
convertor_from_double_lo_long_double_operand; 

multiplierJong_double_a, muItipIier_long_double_b, adderJong_double_a, 
adder_long_double_b, dividerjong_double_a, divider Jong_double_b, 
substractor_long_double_a, substractorJong_double_b, 

convertor_from_long_doubie_to_signed_16_operand, 2_80, _3_80, _4_80, _5_80, 
_6_80, _7_80; 

always @(posedge clock) 
begin 
if (reset) 

state = 0; 
else 
begin 

case (state) 

0: begin 
if (run_func) 
begin 

ready_func = 0; 

zero_substractorJloat_operand = param_func_a; 
zero_substractor_float_run = 1; 
state = 1; 
end 
end 

1: begin 

zero_substractor_float_run = 0; 
_1_32 = zero_substractor_float_result; 
if (zero_substractor_float_ready) 

state = 2; 
end 

2: begin 

convertor_from_float_to_long_double_operand = _1_32; 
convertor_from_float_to_long_double_run = 1; 
state = 3; 

3: begin 

convertor_from_float_to_long_double_run = 0; 
_2_80 = convertor_from_float_to_long_jdouble_result; 
if (convertor_from_float_to_long_double_ready) 
slate = 4; 

end 
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4: begin 

conveitor_from_double_to_long_double_operand = param_func 
convertor_from_double_to_long_double_run = 1 ; 
state = 5; 
erd 

5: begin 

converor_from_double_toJong_double_run = 0; 
_3_80 = convertor_from_double_to Jong_double_result; 
if (convertor_from_double_tojong_double_ready) 
state = 6; 

erei 

6: begin 

multiplier_long_double_a = _3_80; 
multiplier_long_double_b = param_func_c; 
multiplier_long_double_run = 1 ; 
state = 7; 
ad 

7: begin 

mukipIierJong_double_run = 0; 
_4_80 = multiplier Jong_double_resuIt; 
if (multiplier Jong_double_ready) 
state = 8; 

end 

8: begin 

adder_Iong_double_a = __2_80; 

adderJong_double_b = _4_80; 

adderJong_double__run = 1; 

state = 9; 
end 

9: begin 
adder_long_double_run = 0; 
_5_80 = adder Jong_double_result; 
if (adderJon&_double_ready) 
state = 10; 

eixl 

10: begin 

divider _long_double_a = 80^0000000000803040; 
divider_long_doub!e_b = param_func_c; 
divider Jong_doubIe_run = 1; 
state = 11; 
end 

1 1 : begin 
divider_long_double_run = 0; 
_6_80 = divider_long_double_result; 
if (divider Jon&_double_ready) 
state = 12; 

erei 
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12: begin 

subslractor_Iong_double_a = _5_80; 

substractor_long_doubIe_b = _6_80; 

substractor_Iong_double_run = 1 ; 

slate = 13; 
erei 

13: begin 
substractor_Iong_double_run = 0; 
_7_80 = substractor Jong_double__result; 
if (substractor_Jong_double_ready) 
state = 14; 

end 

14: begin 

convertor_from_long_double_to_signed_16__operand = _7_80; 
convenor_fromJong_double_to_signed_16_run = 1; 
state = 15; 
erei 

IS: begin 

convertor_from long^ double to signed 16 run = 0; 
_8_16 = convertor_from_long_double_to_signed_16_result; 
if (convertor_from_long_double_to_signed_l 6_ready) 
state = 16; 
end 

16: begin 

result.func = _8_16; 

ready_func = 1 ; 

state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule 
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typedef struct 
{ 

int real; 
int image; 

} 

Complex; 

Complex add (Complex a, Complex b) 



Complex c; 

creal = a.real + b.real; 
c.image = a.image + b.image; 
return c; 



Complex x = { 1, 2 }, y = { 3, 4 }, z; 
void main 0 



z = add (x, add (x, y)); 
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% define _add_a 4'hl 
^define _add_b 4'h3 
" define _3_add__c 4 h5 

* define _x 4'h7 

* define _y 4'h9 
^define _z 4'hB 

module Complex (clock, reset, a, d, o, we, result_add, param_add_a, 

param_add_b. nin_add, ready_add, run_main, ready_main) 

input clock, reset, run_add, run_main; 

input [15:0] o; 

input [31:0] param_add_a, param_add_b; 

output we, ready_add, ready_main; 

output [ 3:0] a; 

output [15:0] d; 

output [31:0] result__add; 

reg we, ready__add, ready_main; 

reg [3:0] a; 

reg [ 4:0] state, retum_state_add; 

reg [15:0] d, _1_16, _2_16, _3_16, _4__16, _5_16, _6_16; 

reg [31 :0] result_add, _7_32, _8_32, _9_32, _ 10_32; 

parameter __add = 1 ; 

always @(posedge clock) 
begin 
if (reset) 
begin 
we = 0; 
state = 0; 
end 
else 
begin 

case (state) 
0: begin 

if (run_add) 
begin 
ready_add = 0; 
return_state_add = 0; 
a = _add_a; 

d = param_add_a [31:16]; 
we = 1 ; 
state = 2; 
end 

else if (run_main) 
begin 

ready _main = 0; 
a = _x; 
state = 14; 
end 
end 



n 
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2: begin 
we = 0; 

a = *_add_a + 4'dl; 
d = param_add_a [15:01; 
we = 1; 
state = 3; 
end 

3: begin 
we = 0; 
a = *_add_b; 

d = param_add_b [31:16]; 
we = 1; 
state = 4; 
end 

4: begin 
we = 0; 

a = ^_add_b + 4'dl; 

d = param_add_b [15:0]; 

we = 1; 

state = 5; 
end 

5: begin 
we = 0; 
state = _add; 
end 

_add: begin 

a = *_add_a; 
state = 6; 
end 

6: begin 

_1_16 = o; 
a = v _add_b; 
state = 7; 
end 

7: begin 

_2_16 = o; 

_3,16 = CJ-16 + _2_16); 
a = *_3_add_c; 
d = _3_16; 
we = 1; 
state = 8; 
end 

8: begin 

we = 0; 

a = C_add_a+ 16 r dl); 
state = 9; 
end 
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9: begin 

_4_16 = o; 

a = C_add_b + 16*dl); 
state = 10; 
end 

10: begin 

_5_16 = o; 

_6_16 = C4_16 + _5_16); 
a = ( _3_add_c + 16'dl); 
d = _6_16; 
we = 1; 
state = 11; 
end 

11: begin 
we = 0; 

a = N _3_add_c; 
state = 12; 
end 

12: begin 

_7_32 [31:16] = o; 
a= _3_add_c + 4dl; 
state = 13; 
end 

13: begin 

J7_32 [15:0] = o; 
result_add = _7_32; 
ready_add = 1; 
state = retum_state_add; 
end 

14: begin 

_8_32 [31:16] = o; 
a = N _x + 4'dl; 
state = 15; 
end 

15: begin 

.8.32 [15:0] = o; 
a = *_add_a; 
d = _8_32 [31:16]; 
we = 1; 
state =16; 
end 

16: begin 
we = 0; 

a = ^_add_a + 4'dl; 
d = _8_32 [15:0]; 
we = 1; 
state = 17; 
end 
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17: begin 

we = 0; 
a = *_x; 
state = 18; 
end 

18: begin 

_9_32 [31:16] = o; 
a = *_x + 4'dl; 
state = 19; 
end 

19: begin 

_9_32[15:0] = o; 
a = '_add_a; 
d = _9_32 [31:16]; 
we = 1; 
state = 20; 
end 

20: begin 

we = 0; 

a = ^_add_a + 4'dl; 
d = _9_32 [15:0]; 
we = 1; 
state = 21; 
end 

21: begin 

we = 0; 
a = *_y; 
state = 22; 
end 

22: begin 

_10_32 [31:16] = o; 
a = + 4'dl; 
state = 23; 
end 

23: begin 

_10_32[15:0] = o; 
a = _add_b; 
d = _10_32 [31:16]; 
we = 1; 
state = 24; 
end 

24: begin 

we = 0; 

a = x _add_b + 4'dl; 
d = _10_32 [15:0]; 
we = 1; 
state = 25; 
end 
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25: begin 

we = 0; 

return_state_add = 26; 
state = _add; 
end 

26: begin 

a= _add_b; 
d = result_add [31:16]; 
we = 1; 
state = 27; 
end 

27: begin 

we = 0; 

a = _add_b + 4'dl; 
d = result_add [15:0]; 

we = 1; 

state = 28; 
end 

28: begin 

we = 0; 

return_state_add = 29; 
state = _add; 
end 

29: begin 
a= _z; 

d = result_add [31:16]; 
we = 1; 
state = 30; 
end 

30: begin 

we = 0; 
a= _z + 4'dl; 
d = resukadd [15:0]; 
we = 1; 
state = 31; 
end 

31: begin 
we = 0; 

ready_main = 1; 
state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule 
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#ifndef SYNETRY 

# include <assert.h> 
^include <stdio.h> 
#include <stdlib.h> 
#else 

#define NULL ((NODE *) 0) 

#define assert(a) 

#endif 

#define MAX_NODES 10 

struct _Node 

{ struct _Node * pLeft; 

struct _Node * pRight; 

int nKey; 

int nValue; 

}; 

typedef struct _Node NODE; 
static NODE Nodes [MAXJMODES] ; 
static int nNodes; 
NODE * pTree; 
void Initialize (void) 
{ nNodes = 0; 
pTree = NULL; 

} 

static NODE * NewNode (int nKey, int n Value) 

{ assert (nNodes >= 0 && nNodes <= MAXJMODES); 

if (nNodes == MAX_NODES) 
return NULL; 

Nodes [nNodes].pLeft = NULL; 

Nodes [nNodesJ.pRight = NULL; 

Nodes [nNodes], nKey = nKey; 

Nodes [nNodesJ.n Value = nValue; 

return & Nodes [nNodes++]; 

} 

NODE * FindNode (int nKey) 
{ NODE*p; 

p = pTree; 

while (p != NULL) 

{ 

if (p -> nKey < nKey) 

p = p -> pLeft; 
else if (p -> nKey > nKey) 

p = p -> pRight; 
else 

return p; 

} 

return NULL; 

} 

int FindValue (int nKey) 
{ NODE*p; 

return (p = FindNode (nKey)) — NULL ? -1 : p -> nValue; 
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NODE * FindOrAddNode (nKey, nValue) 
int nKey; 
int nValue; 
{ NODE**p; 
p = & pTree; 
while (*p!=NULL) 
{ if ((*p)-> nKey < nKey) 
p = & (*p) -> pLeft; 
else if ((*p) -> nKey > nKey) 

p = & (*p) -> pRight; 
else 

return (*p); 

} 

return *p = NewNode (nKey, nValue); 

} 

intFindOrAddValue (nKey, nValue) 
int nKey; 
int nValue; 

{ NODE* p = FindOrAddNode (nKey, nValue); 
return p == NULL ? -1 : p -> n Value; 

} 

#ifhdef SYNETRY 

void PrintTree (int nLevel, NODE * p) 
{ if (p = NULL) 
return; 

PrintTree (nLevel + 1, p -> pLeft); 

printf ("%*s%d [%d]Nn*\ nLevel * 4, p -> nKey, p -> nValue); 
PrintTree (nLevel + 1, p -> pRight); 

} 

void main 0 

{ int anKeys [20] 

= { 12, 4, 7, 2, 18,24,0, 5, 14, 1, 43, 6, 19,21,26, 11, 37, 8, 4, 9); 
int i; 

Initialize 0; 

for (i = 0; i < 20; i++) 

FindOrAddValue (anKeys [i], i); 
for (i = 0; i < 20; i++) 

printf ("%d: %<Tsn n , i, FindValue (i)); 
printf ( ,f \nTree:\n H ); 
PrintTree (0, pTree); 

) 

#endif 
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define _Nodes* 6'hl 
define _pTree 6h29 

module Tree (clock, reset, a, d, o, we, resuk_FindNode t result_FindValue, result_FindOrAddNode, 
resultJFindOrAddValue, param_FindNode_nKey, param_FindValue__nKey, 
param_FindOrAddNode_nKey, param_FindOrAddNode_n Value, 
param_FindOrAddValue_nKey, param_FindOrAddValue_n Value, 
run_Initialize, ready_Initialize, run_FindNode, ready_FindNode> 
run_FindValue, ready_FindValue, run_FindOrAddNode, 
ready_FindOrAddNode, run_FindOrAddValue, ready_FindOrAddValue ); 
input clock, reset, run ^Initialize, run_FindNode, run_FindValue, run_FindOrAddNode, 

run_FindOrAddValue; 

input [15:0] o, param_FindNode_nKey, param_FindValue_nKey, param_FindOrAddNode_nKey, 
param_FindOrAddNode_n Value, param_FindOrAddValue_nKey, 
param_FindOrAddValue_n Value; 

output we, ready_Initialize, ready _FmdN ode, ready_FindValue, ready JFindOrAddNode, 

ready_FindOrAddValue; 

output [ 5:0] a, result_FindNode, result_FindOrAddNode, d, result_FindValue, result_FindOrAddValue; 
reg we, ready ^Initialize, ready_FindNode, ready_FindValue, ready_FindOrAddNode, 

ready_FindOAddValue; 

reg [ 5:0] a, resull_FindNode, result_FindOrAddNode, d, result_FindValue, result_FindOrAddValue, 
slate, resu!t_NewNode, _7_FindNode_p, _10_FindVaIue__p, _13_FindOrAddNode_p, 
_17_FindOrAddValue_p, return_siate_NewNode, return_state_FindNode, 
return_stateJFindOrAddNode, _1_6, _2_6 t _3_6, _4_6, _5_6, __6_6, J7_6, _8_6, _9_6, 
_10__6,_12_6, _13_6,_14_6,_18_6,_22_6, _23_6, _24_6, _27_6, _28_6, _29_6, 
_33_6, _34_6, _38_6, _39_6, _40_6; 

reg [15:0] _nNodes, _NewNode_nKey , _NewNode_n Value, _FindNode_n Key, 

__FindOrAddNode_nKey, _FindOrAddNode_n Value, _30_16, _35_16, _1 1_16, _15_16, 
_19_16, _25_16, _26_16, _41_16, _42_16; 

reg [16:0] _16_17, _17_17, _20_17, _21_17, _31_17, _32_17, _36__17, _37_17; 

parameter _NewNode =1, 
_FindNode = 5, 
_FindOrAddNode = 14; 



always @(posedge clock) 
begin 
if (reset) 
begin 
we = 0; 
state = 0; 
end 
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else 
begin 
case (siate) 
0: begin 

if (run_Initialize) 
begin 
ready_Initialize = 0; 
_nNodes = 16'dO; 
_1_6 = 16'dO; 
a = _pTree; 
d [15:10] = _1_6; 
we = 1; 
state = 23; 
end 

else if (run_FindNode) 
begin 
ready_FindNode = 0; 
return_sLate_FindNode = 0; 
_FindNode_nKey = param_FindNode_nKey; 
state = _FindNode; 
end 

else if (run_FindVaIue) 
begin 
ready_FindValue = 0; 

_FindNode_nKey = param_FindValue_nKey; 
return_state_FindNode = 33; 
state = _FindNode; 
end 

else if (run_FindOrAddNode) 
begin 

ready_FindOrAddNode = 0; 
return_state_FindOrAddNode = 0; 

_FindOrAddNode_nKey = param_FindOrAddNode_nKey; 
_FindOrAddNode_n Value = param_FindOrAddNcxle_n Value; 

state = _FindOrAddNode; 
end 

else if (nin_FindOrAddValue) 
begin 

ready_FindOrAddValue = 0; 

_FindOrAddNode_nKey = param_FindOrAddValue_nKey; 
_FindOrAddNode_n Value = param JFindOrAddValue_n Value; 

return_state_FindOrAddNode = 48; 

state = _FindOrAddNode; 
end 
end 

23: begin 
we = 0; 

ready_Initialize = 1 ; 
state = 0; 
end 

NewNode: state = LnNodes = 16'dlO) ? 2 : 3; 
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2: begin 

_2_6 = 16'dO; 

result_NewNode = _2_6; 

state = 4; 
end 

3: begin 

_3_6 = 16'dO; 

_4_6 = CnNodes « 2'd2); 

_5_6 = _3_6; 

a = C_Nodes + _4_6); 

d [15:10] = _5_6; 

we = 1; 

state = 24; 
end 

^ 24: begin 

~i we = 0; 

S -6_6 = 16*d0; 

2 _7_6 = CnNodes « 2'd2); 

_8_6 — _6_6; 

q a = (C .Nodes + _7_6) + 6'dl); 

S d [15:10] = _8_6; 

pj we = 1; 

b" state = 25; 

O end 

+: 25: begin 

W we = 0; 

^ _9_6 = CnNodes « 2'd2); 

ff a = (C_Nodes + _9_6) + 6'd2); 

^ d = _NewNode_nKey; 

we = 1; 

state = 26; 
end 

26: begin 
we = 0; 

_10_6 = CnNodes « 2'd2); 
a = (C.Nodes + _10_6) + 6^3); 
d = _NewNode_n Value; 

we = 1; 

state = 27; 
end 

27: begin 
we = 0; 

_11_16 = _nNodes; 
.nNodes = CI 1-16 + 16'dl); 
_12J5 = CI C16 « 2'd2); 
resu I t_Ne wNode = f_Nodes + _12_6 
state = 4; 
end 
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4: slate = reiurn_siaie_NewNode; 

FindNode: begin 
a = % _pTree; 
state = 28; 
end 

28: begin 

_13_6 = o [15:10]; 

_7_FindNode_p = _13_6; 

state = 6; 
end 

6: begin 

_14_6 = 16'dO; 

state = (J7_FindNode_p != _14_6) ? 7 : 12; 
end 

7: begin 

a = (J7_FindNode_p + 6'd2); 

state = 29; 
end 

29: begin 
_15_16 = o; 

_16_17= { -_15_16 [15L_15_16 }; 
_17_17 = { - _FindNode_nKey [15], _FindNode_nKey }; 
state = C_16_17 < _17_17) ? 8 : 9; 
end 

8: begin 

a = _7_FindNode_p; 

state = 30; 
end 

30: begin 

_18_6 = o [15:10]; 

_7JFindNode_p = _18_6; 

state = 6; 
end 

9: begin 

a = (_7_FindNode_p + 6'd2); 

state = 31; 
end 

31: begin 
_19_16 = o; 

_20_17 = { ~_19_16 [15], _19_16 J; 
_21_17 = { ~ _FindNode_nKey [15], .FindNode^nKey }; 
state = C20_17 > _21_17) ? 10 : 11; 
end 

10: begin 
a = C7_FindNode_p + 6'dl); 
state = 32; 
end 
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32: begin 

_22_6 = o [15:10]; 

_7_FindNode_p = _22_6; 

slate = 6; 
end 

11: begin 
result_FindNode = _7_FindNode_p; 
state = 13; 
end 

12: begin 

_23_6 = 16'dO; 

result_FindNode = _23_6; 

state = 13; 
end 

13: begin 

ready_FindNode = 1 ; 

state = retum_state_FindNode; 
end 

33: begin 

_10_FindValue_p = result_FindNode; 
_24J> = 16*d0; 

state = (result_FindNode = _24_6) ? 34 
end 

34: begin 

_25_16 = -16'dl; 

state = 36; 
end 

35: begin 

a = C10_FindValue_p + 6'd3); 

state = 37; 
end 

37: begin 

J26_16 = o; 

_25_16 = _26_16; 

state = 36; 
end 

36: begin 

result_FindValue 

ready_FindValue 

state = 0; 
end 



= _25_16; 
= 1; 
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FindOrAddNode: begin 

_13_FindOrAddNode_p = *_pTree; 
state =15; 
end 

15: begin 
a = _1 3_FindOrAddNode_p; 
state = 38; 
end 

38: begin 

_27_6 = o [15:10]; 
_28_6 = 16'dO; 

state = (_27_6 != .28.6) ? 16 : 21; 
end 

16: begin 
a = _13__FindOrAddNode_p; 
state = 39; 
end 

39: begin 

_29_6 = o [15:10]; 

a = (_29_6 + 6'd2); 

state = 40; 
end 

40: begin 
_30_16 = o; 

_31_17= { ~_30_16[15],_30_16 }; 
_32_17 = { -_FindOrAddNode_nKey [15],_FindOrAddNode_nKey }; 
state = C31_17 < _32_17) ? 17 : 18; 
end 

17: begin 
a = _13_FindOrAddNode_p; 
state = 41; 
end 

41: begin 

_33_6 = o [15:10]; 
_13_FindOrAddNode_p = _33_6; 

state = 15; 
end 

18: begin 
a = _1 3_FindOrAddNode_p; 
state = 42; 
end 

42: begin 

_34_6 = o [15:10]; 

a = C34_6 + 6'd2); 

state = 43; 
end 
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43: begin 
_35_16 = o; 

_36_17 = { ~ _35_16 [15], __35_16 }; 
_37_17 = { ~_FindOrAddNode_nKey [15],_FindOrAddNode_nKey J; 
state = C36_17 > .37.17) ? 19 : 20; 
end 

19: begin 
a = _13_FindOrAddNode_p; 
state = 44; 
end 

44: begin 

_38_6= o [15:10]; 

_13_FindOrAddNode_p = (_38_6 + 6'dl); 
state = 15; 
end 

20: begin 
a = _13_FindOrAddNode_p; 
state = 45; 
end 

45: begin 

_39_6 = o [15:10]; 
resuk_FindOrAddNode = _39_6; 

state = 22; 
end 

21: begin 

_NewNode_nKey = _FindOrAddNode_nKey; 
_NewNode_n Value = _FindOrAddNode_n Value; 

return_state_NewNode = 46; 

state = _NewNode; 
end 

46: begin 
a = _13_FindOrAddNode_p; 
d [15:10] = result_NewNode; 
we = 1; 
state = 47; 
end 

47: begin 
we = 0; 

result_FindOrAddNode = result_NewNode; 
state = 22; 
end 
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22: begin 

ready_FindOrAddNode = 1; 

state = retum_siaie_FindOrAddNode; 
end 

48: begin 

_17_FindOrAddValue_p = result_FindOrAddNode; 
_40_6 = 16'dO; 

state = (_17_FindOrAddValue_p = .40.6) ? 49 : 50 
end 

49: begin 

_41_16 = -16'dl; 

state = 51; 
end 

50: begin 
a = C17_FindOrAddValue_p + 6'd3); 
state = 52; 
end 

52: begin 

_42_16 = o; 

_41_16 = _42_16; 

state = 51; 
end 

51: begin 

result_FindOr Add Value = _41_16; 

ready_FindOrAddValue = 1; 
state = 0; 
end 

default: ; 

endcase 

end 



endmodule 
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# include <stdio.h> 
int event_occured = 0; 
^pragma synchronous on_event 

void on_event 0 
{ 

event_occured = 1; 

} 



FIG..12A 

m 

p module Event_sy (clock^eset,scanf_0_l Jine_16_a,scanf_0_2Jine_16_b,printf_l_l Jine_20_c, 

yp run_on_event/un_main); 

fy input clock, reset, run_on_event, run_main; 

b input [15:0] scanf _0_ 1 _line_ 1 6_a , sc an f_0_2_ 1 i ne_ 1 6_b ; 

D output [15:0] printf_l_l_line_20_c; 

=p reg [15:0] prin tf_ 1 1 1 ine_20_c , _event_occured, _108_main_a, _108_main_b, _108_main_c 

□ always @(posedge clock) 

□ begin 

if (run_on_event) 

_event_occured = 16'dl; 
if (reset) 

__event_occured = 16'dO; 

end 

always @(posedge clock) 
begin 

if (run_main) 

begin 

_108_main_a = scanf_0_l_line_16_a; 
_108_main_b = scanf_0_2_line_16_b; 

_108_main_c = (_event_occured ? CJ08_main_a + _108_main_b) : 

(_108_main_a - _108_main_b)); 
printf_l_l_line_20__c = _108_main_c; 
end 
end 



void main 0 
{ 

int a, b, c; 

scanf ("%d %d", & a, & b); 

c = event_occuied ? a + b : a - b; 

printf ( M %dSn M ? c); 



endmodule 
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^include <stdio.h> 

int event_occured = 0; 
#pragma asynchronous on_event 
void on_event 0 

{ 

event_occured = 1; 

} 

void main 0 

{ 

int a, b, c; 

scanf ("%d %d", & a, & b); 

c = event_occured ? a + b : a - b; 

printf ("%dVn",c); 

| 1 FIG..13A 

=f=» 

Q module E ven t_as(clock,reset,scanf _0_ 1 _line_ 1 6_a,scanf_0_2 J ine_ 1 6_b,printf_ 1 _ 1 _line_20_c , 

yp run_on_eventjun_main); 

fU input clock, reset, run_on_event, run_main; 

input [15:0] scanf_0_l_line_16_a, scanf_0_2_line_16_b; 

O output [15:0] printf. l_l_line_20_c; 

«P reg [15:0] printf_l_l_line_20_c, _event_occured, _108_main_a, _108_main_b, _108_main_c; 

Q always @(posedge run_on_event) 

O begin 

^ if (reset) 

_event_occured = 16 f d0; 
else 

_event_occured = 16 v dl; 

end 

always @(posedge clock) 
begin 

if (run_main) 

begin 

_108_main_a = scanf_0__ 1 _line_ 1 6_a; 
_108_main_b = scan f _0_2_1 i ne_ 1 6_b ; 

_l08_main_c = (_event_occured ? (_108_main_a + _108_main_b) : 

(_108_main__a - _108_main_b)); 
printf_l_l_iine_20_c = _108_main_c; 
end 
end 

endmodule 
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int fund (unsigned n) 
( 

unsigned i, result = 0; 

for (i = 0; i <= n; i++) 
result += i; 

return result; 

} 

int func2 (unsigned n) 
{ 

unsigned i, result = 0; 

for (i = 0; i <= n; i++) 
result += i; 

return result; 

} FIG.. 14A 



module Sum (clock, reset, result fund, param fund n,run fund, ready fund, result func2, 

param func2 n, run func2, ready func2 ); 

input clock, reset, run func 1 , run f unc2; 

input [15:0] param fund n, param func2 n; 

output ready func 1 , ready_func2; 

output [15:0] result fund, result func2; 

reg ready func 1 , ready func2; 

reg [1:0] state 1, state2; 

reg [15:0] result fund, result func2, s_2_funcl_i, s_2_funcl_resuk, s_2_func2_i, 

s_2_func2_result; ; 
always @(posedge clock) 
begin 
if (reset) 

state 1 = 0; 
else 
begin 

case (state 1) 
0: begin 

if (run fund) 

begin 

ready func 1 = 0; 

s_2_funcl_result = 16'd0; 
s_2_funcl_i = 16'dO; 
statel = 1; 
end 
end 
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1: state 1 = (s_2_funcl_i <= param fund n) ? 2 : 3; 

2: begin 

s_2_funcl_result = (s__2_funcl_resull + s_2_funcl_i); 
s_2_funcl_i = (s_2_funcl_i + 16'dl); 
statel = 1; 
end 

3: begin 

result fund = s_2_funcl_result; 

ready fund = 1; 

statel = 0; 
end 

endcase 
end 
end 

always @ (posedge clock) 
begin 
if (reset) 

state2 = 0; 
else 
begin 

case (state2) 
0: begin 

if (run func2) 

begin 

ready func2 = 0; 

s_2_func2_result = 16 f d0; 
s_2_func2_i = 16*d0; 
state2 = l; 
end 
end 

1: state2 = (s_2_func2_i <= param func2 n) ? 2 : 3; 

2: begin 

s_2_func2_result = (s_2_func2_result + s_2_func2_i); 
s_2_func2_i = (s_2_func2_i + 16'dl); 
state2 = 1; 
end 

3: begin 

result func2 = s_2_func2_result; 

ready func2 = 1; 

state2 = 0; 
end 

endcase 
end 
end 

endmodule 
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^include <stdio.h> 
#include <stdarg.h> 

/* Returns the average of a variable list of integers. */ 

static int average (int first, ...) 
{ 

int count = 0, sum = 0, i = first; 
va_list marker; 

va_start (marker, first); /* Initialize variable arguments. */ 

while (i != -1) 
{ 

sum += i; 
count++; 

i = va_arg (marker, int); 

) 

va__end (marker); /* Reset variable arguments. */ 

return sum ? (sum / count) : 0; 

} 

void main 0 
{ 

/* Call with 3 integers (-1 is used as terminator). */ 
printf ("Average is: %d\n*\ average (2, 3, 4, -1)); 

/* Call with 4 integers. */ 

printf ("Average is: %dSn'\ average (5, 7, 9, 1 1, -1)); 

/* Call with just -1 terminator. */ 
printf ("Average is: %d\n", average (-1)); 

} 
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"define _average_first 5'hl 

module udivmodl6 (a, b, div, mod); 

input [15:0] a, b; 

output [15:0] div, mod; 

rcg [15:0] div, mod, paO, pal, pa2, pa3, pa4, pa5, pa6, pa7, pa8, pa9, palO, 

pall, pal2, pal3, pa 14, pal5, pa 16, shbO; 

reg [16:0] shbl; 

reg [17:0] shb2; 

rcg [18:0] shb3; 

reg [19:0] shb4; 

reg [20:0] shb5; 

reg [21:0] shb6; 

reg [22:0] shb7; 

reg [23:0] shb8; 

reg [24:0] shb9; 

reg [25:0] shblO; 

reg [26:0] shbll; 

reg [27:0] shbl2; 

reg [28:0] shbl 3; 

reg [29:0] shbl4; 

reg [30:0] shbl5; 

always @(a or b) 
begin 
paO = a; 

shblS = b « 15; 

div [15] - paO >= shbl5; 

pal = div [15] ? paO - shblS : paO; 

shbl4 = b « 14; 

div [14] = pal >= shbl4; 

pa2 = div [14] ? pal - shbl4 : pal; 

shbl3 = b « 13; 

div [13] = pa2 >= shbl3; 

pa3 = div [13] ? pa2 - shbl3 : pa2; 

shbl2 = b « 12; 

div [12] = pa3 >= shbl2; 

pa4 = div [12] ? pa3 - shbl2 : pa3; 

shbll =b«ll; 

div [11] = pa4>= shbll; 

pa5 = div [li] ? pa4 • shbll : pa4; 

shblO = b « 10; 

div [10] = pa5 >= shblO; 

pa6 = div [10] ? pa5 - shblO : pa5; 

shb9 = b « 9; 

div [ 9] = pa6 >= shb9; 

pa7 = div [9] ? pa6 - shb9 : pa6; 



FIG.-15B1 



CLEV-1 



44/90 

shb8 = b « 8; 

div [ 8] = pa7 >= shb8; 

pa8 = div [8] ? pa7 - shb8 : pa7; 

shb7 = b « 7; 

div [ 7] = pa8 >= shb7; 

pa9 = div [7] ? pa8 - shb7 : pa8; 

shb6 = b « 6; 

div [ 6] = pa9 >= shb6; 

palO = div [6] ? pa9 - shb6 : pa9; 

shb5 = b « 5; 

div [ 5] = palO >= shb5; 

pall = div [5] ? palO - shb5 : palO; 

shb4 = b « 4; 
_ div [ 4] = pal 1 >= shb4; 

3 pal2 = div [4] ? pall - shb4 : pall; 

m shb3 = b « 3; 

J£ div [ 3] = pal2 >= shb3; 

m pal3 = div [3] ? pal2 - shb3 : pal2; 

% shb2 = b « 2; 

J div[2] = pal3>=shb2; 

[ J pal4 = div [2] ? pal3 - shb2 : pa!3; 

a shbl = b « 1; 

=p div[ l] = pal4>=shbl; 

U pal5 = div [1] ? pal4 - shbl : pal4; 

y shbO = b « 0; 

y div [0] = pal5 >= shbO; 

pal6 = div [0] ? palS - shbO : palS; 

mod = pal6; 
end 
endmodule 



module sdivmodl6 (a, b, div, mod); 

input [15:0] a, b; 

output [15:0] div, mod; 

wire [15:0] ua = a [15] ? - a : a; 

wire [15:0] ub = b[15]?-b:b; 

wire [15:0] udiv, umod; 

udivmodl6 udivmod (ua, ub, udiv, umod); 

wire [15:0] div = (a [15] != b [15]) ? - udiv : udiv; 

wire [15:0] mod = a [15] ? - umod : umod; 
endmodule 
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module RAM32X1 (O, D, WE, A4, A3, A2, Al, AO) 
/* synthesis black_box xc_alias="RAM" */ ; 



reg [31:0} d; 

wire [4:0] A = { A4, A3, A2, Al, AO }; 
assign O = d [A]; 
always @(A or D or WE) 
if (WE) 
d [A] = D; 
endmodule 

module RAM32xl (a, d, o, we); 
input d, we; 

input [4:0] a; 
output o; 

RAM32X1 RAM32X1 (o, d, we, a [4], a [3], a [2], a [1], a [0]); 
endmodule 

module RAM32xl6 (a, d, o, we); 
input we; 
input [ 4:0] a; 
input [15:0] d; 
output [15:0] o; 

RAM32xl U0 (a, d [ 0], o [ 0], we); 
RAM32xl Ul (a, d [ 1], o [ 1], we); 
RAM32xl U2 (a, d [ 2], o [ 2], we); 
RAM32xl U3 (a, d [ 3], o [ 3], we); 
RAM32xl U4 (a, d [ 4], o [ 4], we); 
RAM32xl U5 (a, d [ 5], o [ 5], we); 
RAM32xl U6 (a, d [ 6], o [ 6], we); 
RAM32xl U7 (a, d [ 7], o [ 7], we); 
RAM32xl U8 (a, d [ 8], o [ 8], we); 
RAM32xl U9 (a, d [ 9], o [ 9], we); 
RAM32xl U10 (a, d [10], o [10], we); 
RAM32xl Ull (a, d [11], o [11], we); 
RAM32xl U12 (a, d [12], o [12], we); 
RAM32xl U13 (a, d [13], o [13], we); 
RAM32xl U14 (a, d [14], o [14], we); 
RAM32xl U15 (a, d [15], o [15], we); 
endmodule 

module RAM 18x1 6 (a, d, o, we); 

input we; 

input [ 4:0] a; 

input [15:0] d; 

output [15:0] o; 

RAM32xl6 U (a, d, o, we); 
endmodule 



output 
input 



O; 

D, WE, A4, A3, A2, Al, AO; 
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module StdArg (clock, reset, printf_l_l Jine_42, prinlf_2__l Jine_45, printf_3_l_line_48, 
run_main, ready_main ); 
input clock, reset, run_main; 

output ready_main; 

output [15:0] printf_l_l Jine_42, printf__2_l_line_45, printf_3__l_line_48 

reg ready_main, we; 

reg [ 4:0] state, a, retum_state_average; 

reg [15:0] printf_J_l _line_42, printf_2_l Jine_45, printf_3_l Jine_48, divmod_a, divmod_b, 
d, result_average, _108_average_count, _108_average_sum, _108_average_i, 
_l08_average_marker, _1_16, _2_16, _3_16, _4_16, _5_16, _6_16, _7_16, _8_16, 
_9_16, _10_16, _11_16, _12_16, _13_16, _14_16; 

wire [15:0] div_result, o; 

sdivmodl6 sdivmod (divmod_a, divmod_b, div_result, ); 

RAM 18x16 m (a, d, o, we); 
parameter ^average = 1; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

state = 0; 
end 
else 
begin 

case (state) 

0: begin 

if (run_main) 
begin 

ready _main = 0; 
_5_16 = 16'd2; 
a = *_average_first; 
d = _5_16; 
we = 1; 
state =11; 
end 
end 

^average: begin 

_108_average_count = 16'dO; 

_108_average_sum = 16'dO; 

a = ^_average_first; 

slate = 5; 
end 

5: begin 
_1_16 = o; 

_108_average_i = _1_16; 

_108_average_marker = 0_average_first + 16'dl); 
state = 2; 
end 

2: slate = (_108_average_i != -16'dl) ? 3 : 4; 
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3: begin 



J: begin 

_108_average_sum = (_108_average_sum + _108_average_i); 
_108_average_count = CJ08_average_count + 16'dl); 
_108_average_marker = (_108_average_marker + 16'dl); 
a = (_108__average_marker - 16'dl); 



state = 6; 
end 

6: begin 
_2_16 = o; 

_108_average„i = __2_J6; 
state = 2; 
end 

4: begin 

_108_average_marker = 16'dO; 

state = _108_average_sum ? 7 : 8; 
end 

7: begin 

divmod_a = _108_average_sum; 

divmod_b = _108_average_count; 
state = 10; 
end 

10: begin 

_4_16 = div_result; 

_3_16 = _4_16; 

state = 9; 
end 

8: begin 

_3_16 = 16'd0; 

state = 9; 
end 

9: begin 

result_average = _3_16; 

state = return_state_average; 
end 

11: begin 

we = 0; 

_6_16 = 16'd3; 

a as 0_average_first + 16'dl); 

d = _6_16; 

we = 1; 

state = 12; 
end 
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12: begin 
we = 0; 

J7_16 = 16*d4; 
a = (*_average_first + 16'd2); 
d = _7_16; 
we = 1; 
state = 13; 
end 

13: begin 
we = 0; 

_8_16 = -16'dl; 
a = f_average_first + 16'd3); 
d = _8_16; 
we = 1; 
state = 14; 
end 

14: begin 
we = 0; 

return_state_average = 15; 
state = ^average; 
end 

15: begin 

printf_l_l Jine_42 = result_average; 
// User Verilog code 

Swrite ("Average is: %d\n", printf_l_l_line__42); 
// End of user Verilog code 

_9_16 = 16U5; 
a = % _average_first; 

d = _9_16; 

we = 1; 

state =16; 
end 

16: begin 
we = 0; 

_10_16 = 16'd7; 
a = C_average_first + 16'dl); 
d = _10_16; 
we = 1; 
state = 17; 
end 

17: begin 
we = 0; 

_11_16= 16d9; 
a = C_average_firsi + 16'd2); 
d = _11_16; 
we = 1; 
state =18; 
end 
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18: begin 
we = 0; 

_12_16 = 16'dll; 
a = C_average_first + 16'd3); 
d = _12_16; 
we = 1; 
state = 19; 
end 

19: begin 
we = 0; 

_13_16 = -16'dl; 
a = 0_average_first + 16'd4); 
d = _13_16; 
we = 1; 
state = 20; 
end 

20: begin 
we = 0; 

return_state_average = 21; 
state = ..average; 
end 

21: begin 

printf_2_l_line_45 = result_average; 
// User Verilog code 

Swrite ("Average is: %cf*r, printf_2_l_line_45); 
// End of user Verilog code 

_14_16= -16 f dl; 
a = *_average_first; 

d = _14_16; 

we = 1; 

state = 22; 
end 

22: begin 
we = 0; 

return_state_average = 23; 
state = ^average; 
end 

23: begin 
printf_3_l_Iine_48 = result_average; 
// User Verilog code 

Swrite ("Average is: %<NT, printf_3_l Jine_48); 
// End of user Verilog code 
ready _main =1; 
state = 0; 
end 

default: ; 
endcase 
end 
end 
endmodule 
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^include <stdio.h> 

static void MoveRing (int nRings, int Tower 1, int Tower2, int Tower3) 
{ 

if (nRings == 0) 
return; 

MoveRing (nRings - 1, Towerl, Tower3, Tower2); 
printf (" %d -> %d\n'\ Towerl , Tower2); 
MoveRing (nRings - 1, Tower3> Tower2, Towerl); 

) 

void Hanoi (int nRings) 

{ 

MoveRing (nRings, 1, 2, 3); 

} 

#ifndef SYNETRY 

void main (void) 
{ 

printf ("Five rings Hanoi Towers\n"); 
Hanoi (5); 

} 

#endif 
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* define recursion_stack 8'hl 

module Hanoi (clock, reset, a, d, o, we, printf_l_l_line_22_Towerl, printf_l_2Jine_22_Tower2, 
param_Hanoi_nRings, run_Hanoi, ready_Hanoi ); 
input clock, reset, run_Hanoi; 

input [ 7:0] o, param_Hanoi_nRings; 
output we, ready _Hanoi; 

output [7:0] a, d, printf_l_lJine_22_Towerl,printf_l_2_line_22_Tower2; 

reg we, ready _Hanoi; 

reg [ 4:0] state, return_state_MoveRing; 

reg [ 7:0] a, d, printf_l_l Jine_22_Towerl , printf_l_2_line_22_Tower2, recursion_stack_pointer, 
_MoveRing_nRings, _MoveRing_Towerl, _MoveRingJTower2, _MoveRing_Tower3, 
-1_8, _2_8, _3_8, _4_8, _5_8, _6_8, _7_8, _8_8, _9_8, _10J$, _1 1_8, _12_8; 

parameter _MoveRing = 1 ; 

always @(posedge clock) 
begin 

if (reset) 

begin 
we = 0; 

recursion_stack__pointer = *recursion_stack; 

state = 0; 
end 
else 
begin 

case (state) 

0: begin 

if (run_Hanoi) 
begin 
ready_Hanoi = 0; 

_MoveRing_nRings = param_Hanoi_nRings; 
_MoveRingJTowerl = 8*dl; 
_MoveRing_Tower2 = 8'd2; 
_MoveRing_Tower3 = 8*d3; 
return_state_MoveRing = 26; 
state = _MoveRing; 
end 
end 

_MoveRing: state = (_MoveRing_nRings == 8*d0) ? 3 : 2; 
2: begin 

_1_8 = (_MoveRing_nRings - 8'dl); 
_2_8 = _MoveRing_Towerl; 
_3_8 = _MoveRing_Tower3; 
_4_8 = _MoveRing_Tower2; 
a = recursion_stack_pointer; 
d = _MoveRing_nRings; 
we = 1; 
state = 4; 
end 
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4: begin 
we = 0; 

a = recursion__stack_pointer + 1 ; 
d = _MoveRing_Towerl; 
we = 1; 
state = 5; 
end 

5: begin 
we = 0; 

a = recursion_stack_pointer + 2; 
d = _MoveRing_Tower2; 
we = 1; 
state = 6; 
end 

6: begin 
we = 0; 

a = recursion_stack_pointer + 3; 
d = _MoveRing_Tower3; 
we = 1; 
state = 7; 
end 

7: begin 
we = 0; 

_9_8 = return_state_MoveRing; 
a = recursion_stack_pointer + 4; 
d = _9_8; 
we = 1; 
state = 8; 
end 

8: begin 
we = 0; 

recursion_stack_pointer = recursion_stack_pointer + 5; 
_MoveRing_nRings = _1_8; 
_MoveRing_Towerl = _2_8; 
_MoveRing_Tower2 = _3_8; 
_MoveRing_Tower3 = _4_8; 
return_state_MoveRing = 9; 
state = _MoveRing; 
end 

9: begin 

recursion_stack_pointer = recursion_stack_pointer - 5; 
a = recursion_stack_pointer; 
state =10; 
end 

10: begin 

_MoveRing_nRings = o; 
a = recursion_stack_pointer + 1; 
state = 11; 
end 
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11: begin 

_MoveRing_Towerl = o; 

a = recursion_stack_pointer + 2; 

state = 12; 



end 



12: begin 
_MoveRing_Tower2 = o; 
a = recursion_stack_pointer + 3; 
state = 13; 



end 



13: begin 

_MoveRing_Tower3 - o; 

a = recursion_stack_pointer + 4; 

state = 14; 



end 



n 




14: begin 
_10_8 = o; 

retum_state„MoveRing = _10_8; 
printf_l_l_line_22_Towerl = _MoveRing_Towerl; 
printf_l_2Jine__22_Towcr2 = _MoveRing_Tower2; 
// User Verilog code 

Swrite ("%d -> %d\n M , printf_l_l_line_22_Towerl, printf_l_2_line_22_Tower2); 

// End of user Verilog code 

_5_8 = CMoveRing_nRings - 8'dl); 

_6_8 = _MoveRing_Tower3; 

_7_8 = _MoveRing_Tower2; 

_8_8 = _MoveRing_Towerl; 

a = recursion_stack_pointer; 

d = _MoveRing_nRings; 

we = 1; 

state =15; 



15: begin 
we = 0; 

a = recursion_stack_pointer + 1; 
d = _MoveRing_Towerl; 
we = 1; 
state =16; 
end 

16: begin 

we = 0; 

a = recursion_stack_pointer + 2; 
d = _MoveRing_Tower2; 
we = 1; 
state = 17; 



end 



end 
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17: begin 
we = 0; 

a = recursion_stack_pointer + 3; 
d = _MoveRing_Tower3; 
we = 1; 
state = 18; 
end 

18: begin 
we = 0; 

_1 1_8 = return_state_MoveRing; 
a = recursion_stack_pointer + 4; 
d = _11_8; 
we = 1; 
state = 19; 
end 

19: begin 
we = 0; 

recursion_stack_pointer = recursion_siack_pointer 
_MoveRing_nRings = _5_8; 
_MoveRing_Towerl = _6_8; 
_MoveRing_Tower2 = _7_8; 
_MoveRing_Tower3 = _8_8; 
return_state_MoveRing = 20; 
state = _MoveRing; 
end 

20: begin 

recursion__stack_pointer = recursion_stack_pointer 
a =s recursion_stack_pointer; 
state = 21; 
end 

21: begin 

_MoveRing_nRings = o; 

a = recursion_stack_pointer + 1; 

state = 22; 
end 

22: begin 

_MoveRing_Towerl = o; 

a = recursion_stack_pointer + 2; 

state = 23; 
end 

23: begin 

_MoveRing_Tower2 = o; 

a = recursion_stack_pointer + 3; 

state = 24; 
end 
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24: begin 

_MoveRing_Tower3 = o; 

a = recursion_stack_pointer + 4; 

state = 25; 
end 

25: begin 
_12_8 = o; 

return_state_MoveRing = _12_8; 
state = 3; 
end 

3: state = retum_state_MoveRing; 

26: begin 

ready_Hanoi = 1 ; 

state = 0; 
end 

default: ; 
endcase 
end 
end 

endmodule 
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# include <stdio.h> 

void fl 0 
( 

printf ("%d\n\ 1); 

} 

void f2 0 
{ 

prinif ("%d\n", 2); 

} 

void main (n) 
{ 

void (* f) 0; 

0 f=n== 1 ? fl : f2; 

1 > FIG.-17A 

o 

if* 

\ y 

a module PtrFtn (clock, reset, printf_l_l_line_19, prinif_2_l_linc_24, param_main_n, run_f 1, ready_f 1 , 

D run_f2, ready_f2, run_main, ready _main); 

=p input clock, reset, run_fl , run_f2, run_main; 

bj input [15:0] param_main_n; 

□ output ready _fl , ready_f2, ready _main; 

□ output [15:0] printf_l_l_line_19, printf_2_l Jine_24; 
H" reg ready_f 1 , ready _f2, ready_main; 

reg [ 1:0] state, retum_state_fl, return_state_f2; 

reg [15:0] printf„l_l_line_19, printf_2_l_line_24, _1 10_mainJ*; 

parameter _f 1 = 1 , J2 = 2; 

always @(posedge clock) 
begin 

if (reset) 

begin 

printf_l_l_line_19 = 0; 
printf_2_l_line_24 = 0; 
_110_main_f =0; 
ready_f 1 = 0; 

return_state_f 1 = 0; 
ready_f2 = 0; 

return_state__f2 = 0; 
ready_main = 0; 
state = 0; 
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else 
begin 

case (state) 

0: begin 
if (run_fl) 
begin 

ready_f 1 = 0; 

return_state_f 1 = 0; 

state = _fl; 
end 

else if (run_f2) 
begin 

ready_f2 = 0; 

retum_state_f2 = 0; 

state = _f2; 
end 

else if (run_main) 
begin 

ready_main = 0; 

_1 10_main_f = ((param_main_n == 16'dl) ? _fl : J2); 



Q state = _1 10_main_f; 

tfj end 
IU end 

~ _fl: begin 

]g primf_l_ljine_19 = 16'dl; 

h § // User Verilog code 

p Swrite ("%d\n M , printf_l_l Jine_19); 

q // End of user Verilog code 

P ready_fl = l; 

state = return_state_fl ; 
end 

_f2: begin 

printf_2_l Jine_24 = 16'd2; 

// User Verilog code 

Swrite ("%d\n M , printf_2_l_line_24); 

// End of user Verilog code 

ready_f2 = 1; 

state = return_state_f2; 
end 

3: begin 

ready_main = 1 ; 

state = 0; 
end 

default: ; 
endcase 
end 
end 

endmodule 
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int sum (int array [], int size) 

{ 

int i, sum = 0; 

for (i = 0; i < size; i ++) 
sum += array [i]; 

return sum; 

} 

int main 0 
{ 

int i; 

int array [10]; 

int size = sizeof (array) / sizeof (*array); 

array [0] = 1 ; 
array [1] = 2; 
array [2] = 3; 

for (i = 3; i < size; i++) 
array [i] = i * 2; 

return sum (array, size); 

} 
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// Global macro definitions 

* define UNIT_MAIN 1 6'hSOOO 
define UNIT_SIZE 16 
define ADDRESS_SIZE 16 
define DATA.SIZE 32 

// Local macro definitions 

define STATE_SIZE 5 
"define WORD.SIZE 32 

define WORD_MEMORY_SIZE 15 
"define MEMORY.SIZE 480 

// External functions defined in the translated C file 
"define _sum 32'h50000001 

* define offset sum 1 

"define var sum memory [1] 

_ "define state sum 5'dl 

5 "define _sum_array 32'h50000002 

" define offset sum array 2 

"define var sum array memory [2] 

" define _sum_size 32'h50000003 

"define offset sum size 3 

"define var sum size memory [3] 

"define _main 32'h50000004 

"define offset main 4 

"define var main memory [4] 

'define state main 5'd2 

// Static, auto and register variables located in module's internal memory 
"define main_3_main_array 32^50000005 
" define of fset_main_3_main_array 5 

module main (reset, clock, master, in__unit, in_address, in_data, in_read, injcall, out_unit, 

out_address, out_data, out_read, out_call ); 
input reset, clock, in_call, in_read; 

output master, out_read, out_call; 

reg master, out_read, out_call; 

input fUNIT_SlZE -1:0] in_unit; 
input r ADDRESSES IZE - 1 : 0] in_address; 
input TDATA_SIZE -1:0] in_data; 

output fUNIT_SIZE -1:0] out_unit; 
output V ADDRESSES IZE -1:0] out_address; 
output fDATAJJIZE -1:0] out_data; 

reg fUNIT_SIZE -1:0] out_unit; 
reg f ADDRESS„SIZE -1:0] out.address; 
reg fDATA_SIZE -1:0] out_data; 

// Module data 

reg fSTATE_SIZE -1:0] state; 
reg fSTATE.SIZE -1:0] return_state; 

reg r\VORD_SIZE -1:0] memory [0 : "WORD_MEMORY_SIZE - 1]; 
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// Predefined stales parameter [4:0] 

ink = 5*d0, 

idle = 5*d20, 

read = 5'd21 f 

write = 5'd22, 

intercall = 5'd23, 

intercall2 = 5'd24, 

intercal!3 = 5*d25, 

answer = 5'd26, 

answer2 = 5'd27; 
// Function result registers 

reg [31:0] result sum, result main; 

// Static, auto and register variables located on registers 

reg [31:0] main_2_sum_i, main_2_sum_sum, main_3_main_i, main_3_main_size; 
// Temporary registers 

reg [31 : 0] _6_32, _8_32, _9_32, _1 1.32; reg [ 0 : 0] _7_1, _10_1; 
always @(posedge reset or posedge clock) // Clock cycle 
begin 

if (reset) 
begin 

master = 0; 

state = idle; 
end 
else 
begin 

case (state) 
idle: begin 

if (in_unit == * UNIT_MAIN) 



begin 

if (in_call) 
begin 

out_unit = in_unit; 
out_address = in_address; 
out_data = answer; 
return_state = in_address; 
state = write; 

end 
else 
begin 

out_unit = in_unit; 
out_address = in__address; 
return_state = answer; 
if (in_read) 

state = read; 
else 
begin 
out_data = in_data; 
state = write; 



end 



end 
end 
end 
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iniL* begin 
master = 1 ; 
slate = answer; 
end 

"state sum: begin 

main_2_sum_sum = 32'dO; 
main_2_sum_i = 32'dO; 
state = STATE_SlZE*dll; 
end 

"STATE.SIZE'dll: begin 

jS_32 = (main_2_sum_i - v var sum size); 

_7_1 =_6_32 [31] == l'bl; 

state = _7_1 ? "STATE_SIZE f dl2 : "STATE.SlZFdlS; 
end 

"STATE_SIZE*dl2: begin 

{ out_unit, out_address ] = fvar sum array + main_2_sum_i); 

return_state = STATE.SIZEUI?; 
state = read; 
end 

*STATE__SIZE'dl7: begin 
_8_32 = out_data; 
fO main_2_sum_sum = (main_2_sum_sum + _8_32); 

main_2_sum_i = (main_2_sum_i + 32'dl); 
state = *STATE_SIZE'dll; 
end 

" STATE_SIZE'd 1 3 : begin 

result sum = main_2_sum_sum; 

{ out_unit, out_address } = ^_sum; 

out_data = result sum; 

master =1; 

state = War sum; 

end 

* state main: begin 

main__3_main_size = 32'dlO; 

memory rmain_3_main_array - CUNIT_MAIN « ADDRESS.SIZE)] = 32'dl; 
memory [Cmain_3„main_array + 32'dl) - CUNIT.MAIN « ADDRESS_SIZE)] = 32*d2 
memory [0main_3_main_array + 32'd2) - ( UNIT.MAIN « ADDRESS_SIZE)] = 32'd3 
main_3_main_i = 32'd3; 
state = % STATE_SIZE'd 14; 
end 

"STATE_SIZE'dl4: begin 

_9_32 = (main_3_main_i - main_3_main_size); 
_10_1 = _9_32 [31] == l'bl; 

state = _10_1 ? "STATE_SIZE'dl5 : *STATC_SIZE'dl6; 
end 
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STATE„SIZE'dl5: begin 
_1 1_32 = (main_3_main_i « l'dl); 

{ out_unit, out_address } = 0main_3_main_array + main_3_main_i) 
out__data = _11_32; 
retum_state = STATE_SIZEdl8; 
state = write; 
end 

*STATE_SIZE'dl8: begin 

main_3_main_i = (main_3_main_i + 32'dl); 

state = STATE_SIZE f dl4; 
end 

STATE_SIZE'dl6: begin 

War sum array = N main_3_main_array ; 

* var sum size = main_3_main_size; 

War_sum = STATE_SIZE'dl9; 
state = x state sum; 



*STATE_SIZE'dl9: begin 

result main = result sum; 

{ out_unit, out_address } = \_main; 

out_data = result main; 

master = 1 ; 

state = War main; 

end 

read: begin 

if (out_unit != UNIT.MAIN) 
begin 

out_read = 1; 
out_call = 0; 
master = 1; 
state' = intercall; 



begin 

out_data = memory [out_address]; 
if (return_state == answer) 

master = 1 ; 
state = return_state; 



end 



end 
else 



end 



end 
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write: begin 

if (out_unit != UNIT_MAIN) 
begin 

out_read = 0; 

out_call = 0; 

master = 1; 

state = intercall; 
end 
else 
begin 

memory [out_address] = out_data; 
if (return_state == answer) 

master = 1 ; 
state = return_state; 
end 
end 

intercall: begin 

state = intercall2; 
end 

intercall2: begin 

master = 0; 

state = intercalB; 
end 

intercalB: begin 
if ({ in_unit, in_address } == ( out.unit, out_address }) 
begin 
out_data = in_data; 
state = return_state; 
end 
end 

answer: begin 

state = answer2; 
end 

answer2: begin 

master = 0; 

state = idle; 
end 

default: 

state = idle; 
endcase 
end 
end 
endmodule 
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int datajn; 
int outl; 
int out2; 
int data_out; 

void pipeline_siage_l 0 
{ 

while (datajn != 0) 
outl = datajn + 1; 

if (data_in == 1) 

while (datajn == 1) 
outl = 2; 

} 

void pipeline_stage_2 0 
{ 

while (outl = 0) 
out2 = 0; 

while (outl != 0) 
out2 = outl + 1; 

} 

void pipeline_stage_3 0 
{ 

if (out2== 1) 

while (out2 == 1) 
data_out = 2; 

while (out2 != 0) 

data_out = out2 + 1; 

} 

#ifndef_SYNETRY_ 

#include <stdio.h> 

void main 0 
{ 

for(;;) 
{ 

scanf ("%d'\& datajn); 
pipeline_stage_l 0; 
pipeline_stage_2 (); 
pipeline_stage_3 0; 
printf ( f, %d\ data-out); 

} 



#endif 
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module Pipeiine(clock t reset,_data_in > _daia_out t run_pipeline_stage_l /eady_pipeline_stage_l , 
runjipeline_suge_2^eady_pipeline_suige_2/unjDipeline_stage„3,ready_pipeline 
input clock, reset, run_pipeline_stage_l , run_pipeiine_stage_2, run_pipeline_stage_3; 

input [15:0] _data_in; 

output ready _pipeline_stage_l , ready _pipeline_stage_2, ready_pipeline__stage_3; 

output [15:0] _data_out; 

reg ready_pipeline_stage_ 1 , ready _pipeline_stage_2, ready_pipeline_stage_3 ; 

reg [2:0] statel, state2, state3; 
reg [15:0] _data_out, _outl, _out2; 

always @(posedge clock) 
begin 
if (reset) 

statel = 0; 
else 
begin 

case (statel) 

0: begin 

if (run_pipeline__stage_l) 
begin 

ready _pipeline_stage_l = 0; 
statel = 1; 
end 
end 

1: statel = Cdatajn != 16'dO) ? 2 : 3; 

2: begin 

_outl = Cdatajn + 16'dl); 

statel = 1; 
end 

3: statel = (_data_in == 16'dl) ? 4 : 6; 
4: statel = (_data_in == 16'dl) ? 5 : 6; 

5: begin 

_outl = 16*d2; 

statel = 4; 
end 

6: begin 
ready_pipeline_stage_l - 1; 
statel = 0; 
end 

default: ; 



endcase 
end 
end 
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always @(posedge clock) 
begin 
if (reset) 

state2 = 0; 
else 
begin 

case (state2) 

0: begin 

if (run_pipeline_stage_2) 
begin 

ready_pipeline__stage_2 = 0; 
state2 = 1; 
end 
end 

1: siate2 = (_outl == 16'dO) ? 2 : 3 

2: begin 

_out2 = 16'dO; 

state2 = 1; 
end 

3: siate2 = (__outl != 16'dO) ? 4 : 5; 

4: begin 

_oul2 = Coutl + 16'dl); 

state2 = 3; 
end 

S: begin 

ready_pipeline_stage_2 = 1 ; 

siate2 = 0; 
end 

default: ; 

endcase 
end 
end 
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always @(posedge clock) 
begin 
if (reset) 

siate3 = 0; 
else 
begin 

case (siate3) 

0: begin 

if (run_pipeline_stage_3) 
begin 

ready_pipeline_stage_3 = 0; 
state3 = (_out2 == 16'dl) ? 1 : 3; 
end 
end 

1: state3 = (_out2 == 16'dl) ? 2 : 3; 

2: begin 

_data_out = 16'd2; 

state3 = 1; 
end 

3: siate3 = (_oul2 != 16'dO) ? 4 : 5; 

4: begin 

_data_out = (_out2 + 16'dl); 

state3 = 3; 
end 

5: begin 
ready _pi pel ine_stage_3 = 1; 
siate3 = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule 
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#include <sidio.h> 

typedef enum { true = 1 , false = 0 } bool; 

void main 0 
{ 

bool bLightlsOn = true; 

printf ("Lightx - C program working on APS-X84 FPG A test cardVn"); 

for(;;) 
{ 

int counter; 

printf 

( 

"Enter the number of clock ticks" 
" to wait before the light change: " 

); 

scanf ("%d", & counter); 

if (counter < 0) 
counter = 0; 

while (counter — != 0) 
printf ("Waiting...\n"); 

bLightlsOn = ! bLightlsOn; 

printf ("Light is: %d\n", bLightlsOn); 

} 

] 
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module Light (clock, reset, scanf_0_l_line_33_counter, printf_4_l_line_43_bLightIsOn, 
run_main, ready _main ); 
input clock, reset, run_main; 

input [ 7:0] scanf_0_l_line_33_counter; 



output ready_main; 

output [ 1:0] printf_4_lJine_43_bLighdsOn; 

reg ready_main, _1_1 ; 

reg [ 1:0] printf_4_lJine_43_bLighdsOn, _3_main_bLightIsOn, 3,2; 

reg [ 2:0] state; 

reg [ 7:0] _4_main_counter, _2_8; 



always @(po sedge clock) 
begin 
if (reset) 

state = 0; 
else 
begin 
case (state) 

0: begin 

if (mn_main) 
begin 

ready_main = 0; 

_3_main_bLightIsOn = 2'dl; 

// User Verilog code 

S write ("Light.c - C program working on APS-X84 FPGA test cardSn"); 
// End of user Verilog code 
state = 1 ; 
end 
end 



1: begin 
// User Verilog code 

Swrite ("Enter the number of clock ticks to wait before the light change: "); 

// End of user Verilog code 

_4_main_counter = scanf_0_l_line_33_counter; 

_1_1 = _4_main_counter [7] == l'bl; 

if U_D 

_4_m ain_coun ter = 8'd0; 

state = 2; 



2: begin 

_2_8 = _4_main_counter; 

_4_main_counter = (_2__8 - 8'dl); 

state = (_2_8 != 8 f d0) ? 3 : 4; 
end 
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3: begin 
// User Verilog code 
Swrite ("Waiting.. .\n M ); 
// End of user Verilog code 
state = 2; 
end 

4: begin 

_3_2 = (! _3_main_bLightIsOn); 
_3_main_bLightIsOn = _3_2; 

printf_4_l_line_43_bLightIsOn = _3_main_bLightIsOn; 
// User Verilog code 

Swrite ("Light is: %d\n", primf_4_l Jine_43_bLightIsOn); 
// End of user Verilog code 
state = 1 ; 
end 

default: ; 

endcase 
end 
end 

endmodule 

// APSX84.V - Verilog wrapper module which instantiates module Light.v. 

// This design is intended to run on APS-X84 board. 

// 

module APSX84 ( clock, clock_enable, reset, data, LCD); 

input clock /* synthesis xc Joc=P24 */ ; 

input clock_enable /* synthesis xc_loc=P3 */ ; 

input reset /* synthesis xc Joc=P4 */ ; 

input [5:0] data /* synthesis xcJoc="P10,P9,P8,P7,P6,P5" */ ; 

output LCD /* synthesis xc_loc=P35 */ ; 

wire internal_clock = clock & clock_enable; 

wire [7:0] dataS = { data, 2'bO }; 

wire [1:0] LCD2; 

wire LCD = LCD2 [0]; 

wire run_main =1; 

Light Light ( internaLclock, reset, data8, LCD2, run_main f ); 
endmodule 
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int sum (int n) 
{ 

int i, sum = 0; 

for (i = 0; i != n; i++) 
sum += i; 

return sum; 

} FIG.-21A 



module Sum (clock, reset, result sum, param sum n, run sum, ready sum ); 

input clock, reset, run sum; 

input [15:0] param sum n; 

output ready sum; 

output [15:0] result sum; 

reg ready sum; 

reg [ 1:0] state; 

reg [15:0] result sum, s_2_sum_i, s__2_sum_sum; 

always @(posedge clock) 
begin 
if (reset) 

state - 0; 
else 
begin 

case (state) 

0: begin 

if (run sum) 

begin 

ready sum = 0; 

s_2_sum_sum = 16'dO; 
s_2_sum_i = 16'dO; 
state = 1 ; 
end 
end 

1: state = (s_2_sum_J != param sum n) ? 2 : 3; 

2: begin 

s_2_sum_sum = (s_2_sum_sum + s_2_sum_i); 
s_2_sum_i = (s_2_sum_i + 16'dl); 
state = 1; 
end 

3: begin 

result sum = s_2_sum_sum; 

ready sum = 1 ; 

state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule FIG 21 B 
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library IEEE; 

use lEEE.STD_Logic_1164.all; 
use IEEE.Nunieric_Std.all; 

entity synetry_sum is 

port( clock : in stdjogic; 

reset : in boolean; 

run_sum : in boolean; 

param_sum_n : in integer range 0 to 65535; 

result_sum : out integer range 0 to 65535; 

ready_sum : out boolean ); 
end entity synetry_sum; 

architecture RTL of synetry_sum is 
begin 

process_synetry_sum : process 

variable state : integer range 0 to 3; 
variable s_2_sum_i : integer range 0 to 65535; 
variable s_2_sum_sum : integer range 0 to 65535; 

begin 

wait until clock'event and clock = T; 
if (reset) then 
state := 0; 
else 

case (state)is 
when 0 => 

if (run_sum)then 
ready_sum <= false; 
s_2_sum_sum := 0; 
s_2_sum_i := 0; 
state := 1; 
end if; 
when 1 => 

if (s_2_sum_i /= param_sum_ji) then 

state := 2; 
else 

state := 3; 
end if; 
when 2 => 

s_2_sum_sum := s_2_sum_sum + s_2_sum 

s_2_sum_i := s_2_sum_i + 1; 

state := 1; 
when 3 => 

result_sum <= s_2_sum_sum; 

ready_sum <= true; 

state := 0; 
end case; 
end if; 
wait; 

end process process_synetry_sum; 
end architecture RTL; 
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int read (int * p) 
{ 

return * p; 

} 

FIG.-22A 



module Read(clock,iesetAd,o,we,resulMrad ) param_ra^ 

input clock, reset, rurwead; 

input [3:0] o, param_read_p; 

output we, ready_read; 

output [ 3:0] a, d, result_read; 

reg we, ready_read, state; 

reg [ 3:0] a, d, result_read; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

slate = 0; 
end 
else 
begin 

case (state) 

Oibegin 
if (run_read) 
begin 
ready_read = 0; 
a = param_read_p; 
state = 1 ; 
end 
end 

lrbegin 

_1_4 = o; 

resul thread = _1_4; 
ready_read =1; 

state = 0; 
end 

default: ; 
endcase 
end 
end 
endmodule 
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void write (int * p, int d) 

{ 

* P = d; 

} 



FIG.. 23 A 
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mcxiule Write(clcK;k^eset,a,d > o ) we,param_write^,param_writc_d 1 run_wri^^ 

input clock, reset, run_write; 

input [ 3:0] o, param_write_p, param_write_d; 

output we, ready_write; 

output [ 3:0] a, d; 

reg we, ready_write, state; 

reg [ 3:0] a, d; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

state = 0; 
end 
else 
begin 

case (state) 

0:begin 

if (run_write) 
begin 

ready _ write = 0; 

a = param_write_p; 

d = param_write_d; 

we = 1; 

state = 1 ; 
end 
end 

l:begin 
we = 0; 

ready _ write = 1; 
state = 0; 
end 

default: ; 

endcase 
end 
end 



endmodule 
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typedef struct 
{ 

int a; 
' int b; 
) STRUCTURE; 

int read_member_b (STRUCTURE *p) 
{ 

return p -> b; 

1 FIG.-24A 



module Stnjctl (clock ^set,a,d,o, we jesul^ __p, 
run_read_member_b»ready - read_member_b); 
input clock, reset, run_read_member_b; 

input [ 3:0] o, param_read_member_b_p; 
□ output we, ready_read_member_b; 

yj output [ 3:0] a, d, result_read_member_b; 

O reg we, ready_read_member_b, slate; 

4~ reg [ 3:0] a, d, resull_read_member_b, _1_4; 

p always @(posedge clock) 

yp begin 

Rj if (reset) 

= begin 

p we = 0; 

4=; state = 0; 

Ly end 

D else 

O begin 

case (state) 

Orbegin 
if (run_read_member_b) 
begin 

ready_read_member_b = 0; 
a = (param_read_member_b_p + 4'dl); 
state = 1; 
end 
end 

1 .begin 
_1_4 = o; 

resu 1 t_read_me m be r_b 
ready _read_member_b 
state = 0; 
end 

default: ; 



FIG..24B 




endcase 
end 
end 
endmodule 
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typedef struct 
{ 

int a; 
int b; 
} STRUCTURE; 

void write_member_b (STRUCTURE *p, int n) 
{ 

p -> b = n; 

} FIG.. 25 A 
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module Struct2(clock,reset,a,d,o,we,param_write_member^^ 

run_wri te_member_b»ready_ wri te_m em ber_b) ; 
input clock, reset, run_write_member_b; 

input [ 3:0] o, param_write_member_b_P» param_write_memberj>_n; 
output we, ready_write_member_b; 

output [ 3:0] a, d; 

reg we, ready _write_member_b, ready_write_member_b, state; 

reg [3:0] a,d; 

always @(posedge clock) 
begin 
if (reset) 
begin 

we = 0; 

state = 0; 
end 
else 
begin 

case (state) 

0: begin 

if (run_write_member_b) 
begin 

ready _write_member_b = 0; 
a = (param_write_member_b_p + 4'dl); 
d = param_ wri te_m em ber_b_n ; 
we = 1; 
state = 1; 
end 
end 

l:begin 
we = 0; 

ready_write_member_b = 1; 
state = 0; 
end 

default: ; 

endcase 
end 
end 

endmodule — ^ — — 

FIG.-25B 
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typedef struct 
{ 

int a; 
int b; 
) STRUCTURE; 

STRUCTURE s; 

int read_member_b (void) 

{ 

return s.b; 

) F1G-26A 



^define _s 2'hl 

module Stnict4(cIock,reset I a,d,o,we,result_readjTiemte^ 
input clock, reset, run_read_mem ber_b ; 

input [ 3:0] o; 

output we, ready _read_member_b; 

output [ 1:0] a, d, result_read_member_b; 
reg we, ready_read_member_b, state; 

reg [1:0] a, d, result_read_member_b; 
reg 1 3:0] _1_4 ; 
always @(posedge clock) 
begin 

if (reset) 

begin 
we = 0; 
state = 0; 

end 

else 

begin 

case (state) 

0: begin 
if (run_read_member_b) 
begin 

ready_read_mem ber_b = 0; 
a = C_s + 4'dl); 
state = 1; 
end 
end 

1: begin 
_l-4 = o; 

resul t_read_member_b 
ready_read_member_b 
state = 0; 
end 

default: ; 
endcase 
end 
end 

endmodule FIG.-26B 



= _1_4; 
= l; 
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typedef struct 
{ 

int a; 
int b; 
} STRUCTURE; 

STRUCTURE s; 

void write_member_b (int n) 

{ 

s.b = n; 

} FIG.-27A 



* define _s 2'hl 

module Struct5(clock^eset^4,o,we,param^ 

input clock, reset, run_write_member_b; 

^ input [ 3:0] param_write_member_b_n, o; 

y output we, ready_write_member_b; 

2 output [ 1:0] a; 

'% output (3:0] d; 

2? reg we, ready_write_member_b, state; 

~ reg [ 1:0] a; 

J reg [3:0] d; 

^ always @(posedge clock) 

l *f begin 

jU if (reset) 

^ begin 

we = 0; 
q state = 0; 

S end 
Ls. else 
begin 

case (state) 
0: begin 

if (run_write_member_b) 
begin 

ready _wri te_m em ber_b = 0; 
a = C_s + 4'dl); 
d = param_write_member_b_n; 
we = 1; 
state = 1 ; 
end 
end 
1: begin 
we = 0; 

ready__write_member_b = 1 ; 
state = 0; 
end 
default: ; 
endcase 
end 
end 

endmodule FIG.-27B 
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